home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Contributed Scores / Claudio Martini / Simple Canon < prev   
Lisp/Scheme  |  1998-10-26  |  2KB  |  53 lines
  1. ; authors: stalker@mix.it and psto@xs4all.nl
  2.  
  3. (def-orchestra 'orchestra
  4.    all-instruments (voice-1 voice-2)
  5. )
  6.  
  7. (setq theme '(a c e f -b e (-1 e) d (-1 d) c b (-1 b) a -b -d a d c b a c))
  8. (setq theme-rhythm '(2/4 2/4 2/4 2/4 2/4 -1/4 2/4 2/4 2/4 2/4 2/4 1/4 1/4 1/4 1/4 1/4 
  9.                      1/4 1/4 2/4 2/4 2/4 2/4))
  10.  
  11. (setq contrapunctus-theme '(e d e h e c b c d e (1 f) g h c d e f b c d e d c b c d e f (-1 g) 
  12.                             f e d e f (-1 g) h (-1 i) (-1 g) f e (1 f) g h i j h g (1 f) g h i 
  13.                             j k i e i h i j k j i h g h e c a))
  14.  
  15. (setq contrapunctus-rhythm '(1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8 
  16.                              1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  
  17.                              1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  
  18.                              1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8  1/8 1/8 1/8 1/8 1/8 1/8 1/8 1/8
  19.                              1/4 1/4 1/4 1/4))
  20.  
  21.  
  22. (def-section-timesheet sect-a
  23.    ;
  24.    ; timesheet
  25.    ;
  26.    with 1/1
  27.    ;          !---!---!---!---!---!---!---!---!
  28.    tonality  "." (activate-tonality (harmonic-minor c 5))
  29.    ;          +---!---+---!---+---!---+---!---+
  30.    voice-1   "------------------"
  31.    voice-2   "------------------"
  32. )
  33.  
  34.  
  35. (def-section sect-a
  36.   voice-1
  37.     channel 2
  38.     symbol (append theme contrapunctus-theme)
  39.     length (append theme-rhythm contrapunctus-rhythm)
  40.     velocity '(85 75 80 70)
  41.   voice-2
  42.     channel 3
  43.     symbol (symbol-retrograde (same-as symbol of voice-1))
  44.     length (symbol-retrograde (same-as length of voice-1))
  45.     velocity '(85 75 80 70)
  46. )
  47.  
  48. (def-tempo 150)
  49.  
  50. (play-file-p nil
  51.    all-instruments '(sect-a)
  52. )
  53.